From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 23 Apr 1994 02:30:17 +0000 (+0000)
Subject: Cosmetic changes.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92025
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=881fd7eb9b15ac712c2a71adeb5868cbfaec158d;p=emacs.git

Cosmetic changes.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index afdb1864643..e991b1d2033 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -173,8 +173,8 @@ Called with region narrowed to the message, including headers.")
      ;; On some systems the time zone can appear after the year, too.
      time-zone-regexp
 
-     ;; I'm not sure what this is.
-     "\\(remote from [^\n]*\\)?"
+     ;; Old uucp cruft.
+     "\\(remote from .*\\)?"
 
      "\n"))
   nil)
@@ -1686,8 +1686,9 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given."
   (let* ((omax (- (buffer-size) (point-max)))
 	 (omin (- (buffer-size) (point-min)))
 	 (opoint (if (and (> rmail-current-message 0)
-			  (= ?D (aref rmail-deleted-vector rmail-current-message)))
-		     0 (- (point) (point-min))))
+			  (rmail-message-deleted-p rmail-current-message))
+		     0
+		   (- (point) (point-min))))
 	 (messages-head (cons (aref rmail-message-vector 0) nil))
 	 (messages-tail messages-head)
 	 ;; Don't make any undo records for the expunging.